home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / math / oleo_tar.z / oleo_tar / oleo / oleo.cdif < prev    next >
Encoding:
Text File  |  1992-03-25  |  15.1 KB  |  621 lines
  1. *** Makefile    Mon May  6 18:33:12 1991
  2. --- ../oleo/Makefile    Wed Mar 25 07:45:07 1992
  3. ***************
  4. *** 6,13 ****
  5.   #YACC=bison
  6.   
  7.   # This works on a Sun4/110 running ???  (Without DLD)
  8. ! SYS = -DI_SYSTYPES
  9. ! CONFIG = -g -DTEST
  10.   SYSLIB =
  11.   SYSOBJ = $(XOBJS)
  12.   YACC = bison
  13. --- 6,13 ----
  14.   #YACC=bison
  15.   
  16.   # This works on a Sun4/110 running ???  (Without DLD)
  17. ! #SYS = -DI_SYSTYPES
  18. ! CONFIG = -static -O3 -Wall
  19.   SYSLIB =
  20.   SYSOBJ = $(XOBJS)
  21.   YACC = bison
  22. ***************
  23. *** 48,62 ****
  24.   #SYSLIB =
  25.   #SYSOBJ = $(XOBJS)
  26.   
  27.   # This should be the end of the user-configurable stuff.
  28. ! CC=cc
  29. ! OLIB =  -lcurses -ltermlib -lm
  30.   CFLAGS = $(SYS) $(CONFIG)
  31.   
  32.   OBJS = parse.tab.o byte_compile.o eval.o cell.o ref.o \
  33.    decompile.o sort.o regions.o utils.o obstack.o \
  34.    io_term.o io_disp.o io_utils.o hash.o\
  35. !  panic.o \
  36.    $(SYSOBJ)
  37.   # include this if your doprnt is broken (some BSD systems)
  38.   # doprnt.o
  39. --- 48,64 ----
  40.   #SYSLIB =
  41.   #SYSOBJ = $(XOBJS)
  42.   
  43. + SYS= -DSYSV -DI_SYSTYPES -DUSG -DPOSIX -DNO_RINT -DNO_UALARM -DA0_REFS -DBITS_PER_CELLREF=16
  44. + 
  45.   # This should be the end of the user-configurable stuff.
  46. ! CC=gcc
  47. ! OLIB = -lcurses -ltermcap -lm
  48.   CFLAGS = $(SYS) $(CONFIG)
  49.   
  50.   OBJS = parse.tab.o byte_compile.o eval.o cell.o ref.o \
  51.    decompile.o sort.o regions.o utils.o obstack.o \
  52.    io_term.o io_disp.o io_utils.o hash.o\
  53. !  panic.o linux.o\
  54.    $(SYSOBJ)
  55.   # include this if your doprnt is broken (some BSD systems)
  56.   # doprnt.o
  57. ***************
  58. *** 84,90 ****
  59.   all:    oleo $(XOBJS)
  60.       
  61.   oleo:    $(OBJS)
  62. !     $(CC) -o oleo $(CFLAGS) $(OBJS) $(OLIB) $(LIB) $(SYSLIB)
  63.   
  64.   clean:
  65.       rm -f $(OBJS) $(XOBJS) oleo core bugs parse.tab.c
  66. --- 86,92 ----
  67.   all:    oleo $(XOBJS)
  68.       
  69.   oleo:    $(OBJS)
  70. !     $(CC) -o oleo $(CFLAGS) $(OBJS) $(OLIB) $(LIB) $(SYSLIB) 
  71.   
  72.   clean:
  73.       rm -f $(OBJS) $(XOBJS) oleo core bugs parse.tab.c
  74. *** byte_compile.c    Tue Apr 30 15:13:07 1991
  75. --- ../oleo/byte_compile.c    Tue Mar 24 23:47:47 1992
  76. ***************
  77. *** 19,24 ****
  78. --- 19,27 ----
  79.   #include "funcdef.h"
  80.   
  81.   #include <stdio.h>
  82. + #include <math.h>
  83. + #include <stdlib.h>
  84. + #include <string.h>
  85.   
  86.   #define obstack_chunk_alloc ck_malloc
  87.   #define obstack_chunk_free free
  88. *** cell.c    Wed May  1 20:35:09 1991
  89. --- ../oleo/cell.c    Wed Mar 25 01:35:38 1992
  90. ***************
  91. *** 19,24 ****
  92. --- 19,25 ----
  93.   #include "funcdef.h"
  94.   
  95.   #include <stdio.h>
  96. + #include <stdlib.h>
  97.   
  98.   #define obstack_chunk_alloc ck_malloc
  99.   #define obstack_chunk_free free
  100. ***************
  101. *** 872,879 ****
  102. --- 873,886 ----
  103.       f->nowrow=myrow;
  104.       f->colpptr= &(f->nowrow->cols[f->lr-f->nowrow->row_low]);
  105.       f->nowcol= *(f->colpptr)++;
  106. +     if (!f->nowcol)
  107. +         panic("f->nowcol is not a cool pointer",0);
  108.       while(f->nowcol->col_high<f->lc)
  109. +     {
  110.           f->nowcol=f->nowcol->col_next;
  111. +         if (!f->nowcol)
  112. +             panic("f->nowcol is real uncool pointer",0);
  113. +     }
  114.       f->nowcell= &(f->nowcol->cells[f->lc-f->nowcol->col_low]);
  115.   
  116.   #ifdef TEST
  117. *** cell.h    Thu Apr 25 15:32:39 1991
  118. --- ../oleo/cell.h    Tue Mar 24 23:29:05 1992
  119. ***************
  120. *** 16,21 ****
  121. --- 16,27 ----
  122.   along with Oleo; see the file COPYING.  If not, write to
  123.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  124.   
  125. + #include <stdlib.h>
  126. + #include <math.h>
  127. + #include <string.h>
  128. + #include <time.h>
  129. + #include <unistd.h>
  130. + 
  131.   /* Various structures and stuff for the spreadsheet */
  132.   
  133.   /* A union of possible values for a location in the spreadsheet
  134. *** decompile.c    Mon Apr 29 19:36:43 1991
  135. --- ../oleo/decompile.c    Tue Mar 24 23:49:47 1992
  136. ***************
  137. *** 16,21 ****
  138. --- 16,22 ----
  139.   along with Oleo; see the file COPYING.  If not, write to
  140.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  141.   
  142. + #include <stdio.h>
  143.   #include "funcdef.h"
  144.   #include "sysdef.h"
  145.   
  146. *** eval.c    Sat May  4 14:28:45 1991
  147. --- ../oleo/eval.c    Mon Mar 23 00:22:59 1992
  148. ***************
  149. *** 19,24 ****
  150. --- 19,25 ----
  151.   #include <math.h>
  152.   #include <ctype.h>
  153.   #include <stdio.h>
  154. + #include <string.h>
  155.   
  156.   #ifdef __TURBOC__
  157.   #define SMALLEVAL
  158. *** io_disp.c    Tue Apr 30 15:22:15 1991
  159. --- ../oleo/io_disp.c    Wed Mar 25 04:01:56 1992
  160. ***************
  161. *** 16,21 ****
  162. --- 16,22 ----
  163.   along with Oleo; see the file COPYING.  If not, write to
  164.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  165.   
  166. + #define A_STANDOUT _STANDOUT
  167.   #include "funcdef.h"
  168.   
  169.   #include <fcntl.h>
  170. ***************
  171. *** 159,164 ****
  172. --- 160,167 ----
  173.   extern void kill_slop EXT4(VOIDSTAR, CELLREF, CELLREF, CELLREF);
  174.   extern void change_slop EXT6(VOIDSTAR, CELLREF, CELLREF, CELLREF, CELLREF, CELLREF);
  175.   extern void set_slop EXT4(VOIDSTAR *, CELLREF, CELLREF, CELLREF);
  176. + extern void map_chr(int n);
  177. + extern void set_options(char *opts);
  178.   
  179.   extern char *print_cell EXT1(CELL *);
  180.   extern char *adjust_prc EXT5(char *, CELL *, int, int, int);
  181. ***************
  182. *** 403,408 ****
  183. --- 406,412 ----
  184.   {
  185.       clear();
  186.       refresh();
  187. +     nl();
  188.       (void)endwin();
  189.   }
  190.   
  191. ***************
  192. *** 1555,1566 ****
  193.           CELLREF ccl,cch;
  194.   
  195.           for(wwid=wid;lenstr>wwid-1;wwid+=get_width(cc)) {
  196. !             if(   ++cc>win->screen.hc
  197. !                || (   ccp=find_cell(r,cc))
  198.                      && GET_TYP(ccp)
  199. !                    && (   GET_FMT(ccp)!=FMT_HID
  200. !                    || (   GET_FMT(ccp)==FMT_DEF
  201. !                        && default_fmt!=FMT_HID))) {
  202.                   --cc;
  203.                   break;
  204.               }
  205. --- 1559,1570 ----
  206.           CELLREF ccl,cch;
  207.   
  208.           for(wwid=wid;lenstr>wwid-1;wwid+=get_width(cc)) {
  209. !             if(   (++cc>win->screen.hc)
  210. !                || ((   ccp=find_cell(r,cc))
  211.                      && GET_TYP(ccp)
  212. !                    && (   (GET_FMT(ccp)!=FMT_HID)
  213. !                    || (   (GET_FMT(ccp)==FMT_DEF)
  214. !                        && (default_fmt!=FMT_HID))))) {
  215.                   --cc;
  216.                   break;
  217.               }
  218. *** io_term.c    Mon May  6 19:36:43 1991
  219. --- ../oleo/io_term.c    Wed Mar 25 09:47:09 1992
  220. ***************
  221. *** 20,25 ****
  222. --- 20,27 ----
  223.   #include <errno.h>
  224.   #include <fcntl.h>
  225.   #include <stdio.h>
  226. + #include <stdlib.h>
  227. + #include <string.h>
  228.   #include <signal.h>
  229.   
  230.   #ifdef I_IOCTL
  231. ***************
  232. *** 69,75 ****
  233.   
  234.   #define WTH_CHR 0x4
  235.   #define BRK    0x8
  236. ! #define NC    0x10
  237.   
  238.   struct line {
  239.       int alloc;
  240. --- 71,77 ----
  241.   
  242.   #define WTH_CHR 0x4
  243.   #define BRK    0x8
  244. ! #define NC    0x10 
  245.   
  246.   struct line {
  247.       int alloc;
  248. ***************
  249. *** 87,92 ****
  250. --- 89,95 ----
  251.   /* External spreadsheet functions */
  252.   
  253.   /* utils.c */
  254. + extern int usr_set_fmts(void);
  255.   extern char *char_to_string EXT1(char);
  256.   extern int string_to_char EXT1(char **);
  257.   extern FILE *xopen_with_backup EXT2(const char *,const char *);
  258. ***************
  259. *** 103,108 ****
  260. --- 106,113 ----
  261.   extern void panic_write_file EXT2(FILE *,struct rng *);
  262.   extern  int panic_set_options EXT2(int, char *);
  263.   extern void panic_show_options EXT0();
  264. + extern void text_start EXT0();
  265. + extern void text_finish EXT0();
  266.   
  267.   #ifdef USE_DLD
  268.       /* If we're using dynamic linking, we get the names of the
  269. ***************
  270. *** 264,273 ****
  271. --- 269,284 ----
  272.   /* Original value is 10 seconds/tick */
  273.   unsigned signal_ticks = 10 * TIMER_MULT;
  274.   
  275. + /*
  276.   void (*read_file) EXT2(FILE *,int)           = panic_read_file;
  277.   void (*write_file) EXT2(FILE *,struct rng *) = panic_write_file;
  278.   int (*set_file_opts) EXT2(int, char *)         = panic_set_options;
  279.   void (*show_file_opts) EXT0()             = panic_show_options;
  280. + */
  281. + void (*read_file) EXT2(FILE *,int)           = sc_read_file;
  282. + void (*write_file) EXT2(FILE *,struct rng *) = sc_write_file;
  283. + int (*set_file_opts) EXT2(int, char *)         = sc_set_options;
  284. + void (*show_file_opts) EXT0()             = sc_show_options;
  285.   
  286.   int n_bound_macros;
  287.   struct rng *bound_macros;
  288. ***************
  289. *** 679,685 ****
  290.   extern void set_format();
  291.   extern void move_region();
  292.   extern void delete_region();
  293. ! extern void format_area();
  294.   extern void open_window();
  295.   extern void close_window();
  296.   extern void goto_window();
  297. --- 690,696 ----
  298.   extern void set_format();
  299.   extern void move_region();
  300.   extern void delete_region();
  301. ! extern void format_area FUN1(struct rng *,f);
  302.   extern void open_window();
  303.   extern void close_window();
  304.   extern void goto_window();
  305. ***************
  306. *** 912,917 ****
  307. --- 923,930 ----
  308.   
  309.   #else
  310.   #if !defined(SIGIO)
  311. + #undef NC
  312. + #undef HZ 
  313.   #include <curses.h>
  314.   
  315.   int intr1 = 0;
  316. ***************
  317. *** 1236,1242 ****
  318. --- 1249,1259 ----
  319.           dbg_show_wins();
  320.           break;
  321.       case 'k':
  322. + #ifdef __TURBOC__
  323.           text_line("i_in %d  i_cnt %d  have_input %d",i_in,i_cnt,have_kbd_input);
  324. + #else
  325. + puts("OK>");
  326. + #endif
  327.           break;
  328.       }
  329.       text_finish();
  330. ***************
  331. *** 1314,1320 ****
  332.       setbuffer(stdout,buf,sizeof(buf));
  333.   #endif
  334.       if(argc<2 || strcmp(argv[1],"-q")) {
  335. !         if(!getenv("OLEO")) {
  336.               fprintf(stdout,"Oleo version 0.03.2, Copyright (C) 1990 Free Software Foundation, Inc.\n");
  337.               fprintf(stdout,"There is ABSOLUTELY NO WARRANTY for Oleo; see the file COPYING\n");
  338.               fprintf(stdout,"for details.  Oleo is free software and you are welcome to distribute\n");
  339. --- 1331,1337 ----
  340.       setbuffer(stdout,buf,sizeof(buf));
  341.   #endif
  342.       if(argc<2 || strcmp(argv[1],"-q")) {
  343. !         if(getenv("OLEO")) {
  344.               fprintf(stdout,"Oleo version 0.03.2, Copyright (C) 1990 Free Software Foundation, Inc.\n");
  345.               fprintf(stdout,"There is ABSOLUTELY NO WARRANTY for Oleo; see the file COPYING\n");
  346.               fprintf(stdout,"for details.  Oleo is free software and you are welcome to distribute\n");
  347. ***************
  348. *** 1396,1403 ****
  349. --- 1413,1422 ----
  350.   #ifdef SIGQUIT
  351.       signal(SIGQUIT,got_sig);
  352.       signal(SIGILL,got_sig);
  353. + #ifndef linux
  354.       signal(SIGEMT,got_sig);
  355.       signal(SIGBUS,got_sig);
  356. + #endif
  357.       signal(SIGSEGV,got_sig);
  358.       signal(SIGPIPE,got_sig);
  359.   #endif
  360. ***************
  361. *** 3177,3183 ****
  362.       /* topclear=2; */
  363.   }
  364.   
  365. ! static void
  366.   format_area FUN1(struct rng *,f)
  367.   {
  368.       int c;
  369. --- 3196,3202 ----
  370.       /* topclear=2; */
  371.   }
  372.   
  373. ! void
  374.   format_area FUN1(struct rng *,f)
  375.   {
  376.       int c;
  377. ***************
  378. *** 3406,3416 ****
  379.   static void
  380.   quit_cmd FUN0()
  381.   {
  382. -     int c;
  383.   
  384.       close_display();
  385.   #ifdef FASYNC
  386. !     c=fcntl(0,F_SETFL,term_flag);
  387.   #endif
  388.   #ifdef FIOSSAIOSTAT
  389.       if((term_flag&1)==0) {
  390. --- 3425,3437 ----
  391.   static void
  392.   quit_cmd FUN0()
  393.   {
  394.   
  395.       close_display();
  396.   #ifdef FASYNC
  397. !     {
  398. !         int c;
  399. !         c=fcntl(0,F_SETFL,term_flag);
  400. !     }
  401.   #endif
  402.   #ifdef FIOSSAIOSTAT
  403.       if((term_flag&1)==0) {
  404. *** list.c    Thu May  2 18:59:32 1991
  405. --- ../oleo/list.c    Wed Mar 25 01:07:35 1992
  406. ***************
  407. *** 120,126 ****
  408.                       fputs(flt_to_str(cp->cell_flt),fp);
  409.                       break;
  410.                   case TYP_INT:
  411. !                     fprintf(fp,"%ld",cp->cell_flt);
  412.                       break;
  413.                   case TYP_STR:
  414.                       fputs(cp->cell_str,fp);
  415. --- 120,127 ----
  416.                       fputs(flt_to_str(cp->cell_flt),fp);
  417.                       break;
  418.                   case TYP_INT:
  419. !                     /*fprintf(fp,"%ld",cp->cell_flt); ???*/
  420. !                     fprintf(fp,"%ld",cp->cell_int);
  421.                       break;
  422.                   case TYP_STR:
  423.                       fputs(cp->cell_str,fp);
  424. *** panic.c    Mon Apr 29 18:32:25 1991
  425. --- ../oleo/panic.c    Wed Mar 25 00:50:01 1992
  426. ***************
  427. *** 18,23 ****
  428. --- 18,24 ----
  429.   
  430.   #undef NULL
  431.   #include <stdio.h>
  432. + #include <unistd.h>
  433.   #include "funcdef.h"
  434.   #include "sysdef.h"
  435.   
  436. ***************
  437. *** 27,34 ****
  438.   
  439.   extern int dup EXT1(int);
  440.   extern int close EXT1(int);
  441. ! extern void *sbrk EXT1(size_t);
  442. ! extern void *brk EXT1(void *);
  443.   
  444.   void
  445.   panic_write_file FUN2(FILE *,fp, struct rng *,rng)
  446. --- 28,34 ----
  447.   
  448.   extern int dup EXT1(int);
  449.   extern int close EXT1(int);
  450. ! extern void recenter_all_win(void);
  451.   
  452.   void
  453.   panic_write_file FUN2(FILE *,fp, struct rng *,rng)
  454. *** ref.c    Mon May  6 16:04:02 1991
  455. --- ../oleo/ref.c    Tue Mar 24 23:27:43 1992
  456. ***************
  457. *** 28,33 ****
  458. --- 28,34 ----
  459.   #include "cell.h"
  460.   #include "eval.h"
  461.   
  462. + unsigned ualarm FUN2(unsigned,first, unsigned,others);
  463.   extern VOIDSTAR hash_new();
  464.   extern VOIDSTAR hash_find();
  465.   extern char *hash_insert();
  466. *** regions.c    Fri May  3 14:14:52 1991
  467. --- ../oleo/regions.c    Tue Mar 24 23:51:47 1992
  468. ***************
  469. *** 37,42 ****
  470. --- 37,43 ----
  471.   extern void sort EXT4(int, int(*)(int,int),void(*)(int,int),void(*)(int,int));
  472.   extern char *set_new_value EXT4(CELLREF, CELLREF, int, union vals *);
  473.   extern char *new_value EXT3(CELLREF, CELLREF, char *);
  474. + extern void copy_cell FUN4(CELLREF,rf, CELLREF,cf, CELLREF,rt, CELLREF,ct);
  475.   
  476.   extern void flush_old_value EXT0();
  477.   
  478. *** string.c    Mon Apr 29 18:58:31 1991
  479. --- ../oleo/string.c    Wed Mar 25 01:01:19 1992
  480. ***************
  481. *** 17,22 ****
  482. --- 17,23 ----
  483.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  484.   
  485.   #include <ctype.h>
  486. + #include <stdio.h>
  487.   #include "funcdef.h"
  488.   #define obstack_chunk_alloc ck_malloc
  489.   #define obstack_chunk_free free
  490. *** sylk.c    Thu May  2 15:03:14 1991
  491. --- ../oleo/sylk.c    Wed Mar 25 01:11:53 1992
  492. ***************
  493. *** 46,51 ****
  494. --- 46,54 ----
  495.   extern void clear_spreadsheet EXT0();
  496.   
  497.   extern char *new_var_value EXT3(char *, int, char *);
  498. + extern void set_usr_stats EXT2(int, char **);
  499. + extern void get_usr_stats EXT2(int, char **);
  500. + extern int usr_set_fmts EXT0();
  501.   
  502.   extern char *read_new_value EXT4(CELLREF, CELLREF, char *, char *);
  503.   
  504. ***************
  505. *** 55,60 ****
  506. --- 58,64 ----
  507.   
  508.   extern char *cell_name EXT2(CELLREF, CELLREF);
  509.   extern char *range_name EXT1(struct rng *);
  510. + extern void recenter_all_win(void);
  511.   
  512.   extern char *bname[];
  513.   extern default_jst;
  514. *** sysdef.h    Wed May  1 15:35:48 1991
  515. --- ../oleo/sysdef.h    Wed Mar 25 00:18:53 1992
  516. ***************
  517. *** 22,27 ****
  518. --- 22,31 ----
  519.   /* Declarations for system functions, etc
  520.      These shouldn't be needed, but are */
  521.   
  522. + #ifndef CRAZY
  523. + extern int stricmp EXT2(const char *,const char *);
  524. + extern int strincmp EXT3(const char *,const char *,size_t);
  525. + #else
  526.   extern int errno;
  527.   
  528.   extern void exit EXT1(int);
  529. ***************
  530. *** 112,117 ****
  531. --- 116,123 ----
  532.   extern void setbuffer EXT3(FILE *,char *,size_t);
  533.   #endif
  534.   extern int access EXT2(const char *, int);
  535. + #endif
  536. + 
  537.   #endif
  538.   
  539.   #if defined(__STDC__) && defined(obstack_chunk_alloc)
  540. *** utils.c    Thu May  2 14:21:33 1991
  541. --- ../oleo/utils.c    Wed Mar 25 04:52:48 1992
  542. ***************
  543. *** 16,21 ****
  544. --- 16,24 ----
  545.   along with Oleo; see the file COPYING.  If not, write to
  546.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  547.   #include <stdio.h>
  548. + #include <stdlib.h>
  549. + #include <string.h>
  550. + #include <unistd.h>
  551.   
  552.   #include "funcdef.h"
  553.   #include "sysdef.h"
  554. ***************
  555. *** 58,65 ****
  556.   #define _IOSTRG 0
  557.   #endif
  558.   
  559. - extern VOIDSTAR malloc();
  560. - 
  561.   VOIDSTAR ck_malloc EXT1(size_t);
  562.   VOIDSTAR ck_realloc EXT2(VOIDSTAR,size_t);
  563.   char *strdup EXT1(CONST char *);
  564. --- 61,66 ----
  565. ***************
  566. *** 330,339 ****
  567.   VOIDSTAR
  568.   ck_malloc FUN1(size_t, size)
  569.   {
  570. !     VOIDSTAR ret;
  571.   
  572. !     ret=malloc(size);
  573. !     if(ret==(VOIDSTAR)0)
  574.           panic("Couldn't allocate %u bytes",size);
  575.       return ret;
  576.   }
  577. --- 331,342 ----
  578.   VOIDSTAR
  579.   ck_malloc FUN1(size_t, size)
  580.   {
  581. !     char * ret;
  582.   
  583. !     if (size <= 0)
  584. !         panic("bad size passed to ck_malloc", size);
  585. !     ret=(char *)malloc(size);
  586. !     if(ret==(char *)0)
  587.           panic("Couldn't allocate %u bytes",size);
  588.       return ret;
  589.   }
  590. ***************
  591. *** 345,350 ****
  592. --- 348,355 ----
  593.       VOIDSTAR ret;
  594.       VOIDSTAR realloc EXT2(VOIDSTAR,size_t);
  595.   
  596. +     if (size <= 0)
  597. +         panic("bad size passed to ck_realloc", size);
  598.       ret=realloc(ptr,size);
  599.       if(ret==(VOIDSTAR)0)
  600.           panic("Couldn't re-allocate %u bytes from %p",size,ptr);
  601. ***************
  602. *** 593,598 ****
  603. --- 598,604 ----
  604.           return chr1 - chr2;
  605.   }
  606.   
  607. + #ifndef linux 
  608.   CONST char *
  609.   strstr FUN2(CONST char *,s, CONST char *,wanted)
  610.   {
  611. ***************
  612. *** 612,617 ****
  613. --- 618,624 ----
  614.               return (char *)0;
  615.       return scan;
  616.   }
  617. + #endif
  618.   
  619.   extern int sys_nerr;
  620.   extern char *sys_errlist[];
  621.